home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 4 / Assassins 4 (1999)(Weird Science).iso / puzzles / nevermind_99 / nevermind.install < prev    next >
Text File  |  1998-04-01  |  3KB  |  114 lines
  1. ; NeverMind Install-script 0.99
  2.  
  3.  
  4.     (message "This script will install NeverMind on your HD\n>-----------------------------<\n(C) 1997-1998 Lennart Johannesson\n95lenjo@ostrabo.uddevalla.se\n")
  5.  
  6.     (complete 0)
  7.  
  8.  
  9. ;MAKES THE "NEVERMIND" DIRECTORY
  10.  
  11.     (set dest_dir
  12.       (tackon (askdir
  13.                 (prompt "Where do you want to install NeverMind?\n"
  14.                         "A drawer called NeverMind will be created.")
  15.                 (help @askdir-help)
  16.                 (default "ram:")
  17.                 (disk)
  18.               )
  19.               "NeverMind"
  20.       )
  21.     )
  22.  
  23.     (set @default-dest dest_dir)
  24.     (makedir dest_dir)
  25.  
  26.  
  27.  
  28. ; COPIES THE NEVERMIND EXECUTABLE & START SCRIPT TO THE DESTINATION DIRETORY
  29.  
  30.     (copyfiles
  31.       (source "NeverMind.exe")
  32.       (dest (dest_dir))
  33.     )
  34.  
  35.     (copyfiles
  36.       (source "Start_NeverMind")
  37.       (dest (dest_dir))
  38.     )
  39.  
  40.  
  41.  
  42. ; COPIES THE "DATA" DIRECTORY TO THE DESTINATION DIRECTORY (DATA)
  43.  
  44.     (makedir (tackon dest_dir ("data")))
  45.     (copyfiles
  46.       (source "data")
  47.       (dest (tackon dest_dir ("data")))
  48.       (all)
  49.     )
  50.  
  51.     (complete 50)
  52.  
  53. ; COPIES THE NEVERMIND GUIDE FILE TO THE DESTINATION DIRETORY
  54.  
  55.     (copyfiles
  56.       (source "NeverMind.Guide")
  57.       (dest (dest_dir))
  58.     )
  59.  
  60.  
  61.     (set icontype
  62.        (askchoice
  63.          (prompt "Which icon type would you like?")
  64.          (choices
  65.                "MagicWB"
  66.                "NewIcons"
  67.                "Normal"
  68.          )
  69.          (help @askchoice-help)
  70.          (default 0)              
  71.        )
  72.     )
  73.  
  74.  
  75. ; ASKS FOR ICONTYPE AND INSTALLS THE CORRECT ONE (ALMOST)
  76.     (if(= icontype 0)
  77.       (
  78.         (copyfiles (source "icons/MagicWB/NeverMind.Guide.info") (dest dest_dir))
  79.         (copyfiles (source "icons/MagicWB/Start_NeverMind.info") (dest dest_dir))
  80.         (copyfiles (source "icons/MagicWB/NeverMind.info") (dest (tackon dest_dir "/")))
  81.       )
  82.     )
  83.  
  84.     (if(= icontype 1)
  85.       (
  86.         (copyfiles (source "icons/NewIcons/NeverMind.Guide.info") (dest dest_dir))
  87.         (copyfiles (source "icons/NewIcons/Start_NeverMind.info") (dest dest_dir))
  88.         (copyfiles (source "icons/NewIcons/NeverMind.info") (dest (tackon dest_dir "/")))
  89.       )
  90.     )
  91.  
  92.  
  93.     (if(= icontype 2)
  94.       (
  95.         (copyfiles (source "icons/Normal/NeverMind.Guide.info") (dest dest_dir))
  96.         (copyfiles (source "icons/Normal/Start_NeverMind.info") (dest dest_dir))
  97.         (copyfiles (source "icons/Normal/NeverMind.info") (dest (tackon dest_dir "/")))
  98.       )
  99.     )
  100.  
  101.  
  102. ; ASKS WHERE TO INSTALL THE FONT
  103.  
  104. (copyfiles
  105.     (prompt "I will have to install NeverMind.font\nWhere do I put it?")
  106.     (help @copyfiles-help)
  107.     (source "fonts/")
  108.     (dest "fonts:")
  109.     (all)
  110.     (confirm)
  111. )
  112.  
  113.     (complete 100)
  114.     (exit)